object CardSumByMonForm: TCardSumByMonForm
  Left = 218
  Top = 95
  Width = 946
  Height = 500
  Caption = #39044#20184#21345#36134#25143#28040#36153#32479#35745
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object grp1: TGroupBox
    Left = 0
    Top = 0
    Width = 938
    Height = 50
    Align = alTop
    TabOrder = 0
    object lbl1: TLabel
      Left = 8
      Top = 23
      Width = 70
      Height = 13
      Caption = #36215#22987#26085#26399#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl2: TLabel
      Left = 198
      Top = 22
      Width = 70
      Height = 13
      Caption = #32456#27490#26085#26399#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbl3: TLabel
      Left = 400
      Top = 23
      Width = 42
      Height = 13
      Caption = #36134#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object dtpBegin: TDateTimePicker
      Left = 82
      Top = 20
      Width = 110
      Height = 21
      Date = 37880.000000000000000000
      Format = 'yyyy-MM-dd'
      Time = 37880.000000000000000000
      DateFormat = dfLong
      DateMode = dmUpDown
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 0
    end
    object dtpEnd: TDateTimePicker
      Left = 275
      Top = 20
      Width = 118
      Height = 21
      Date = 37880.000000000000000000
      Format = 'yyyy-MM-dd'
      Time = 37880.000000000000000000
      DateFormat = dfLong
      DateMode = dmUpDown
      ImeName = 'Chinese (Simplified) - US Keyboard'
      TabOrder = 1
    end
    object medtAccount: TMaskEdit
      Left = 448
      Top = 20
      Width = 221
      Height = 21
      EditMask = '!9999999999999999999;1; '
      ImeName = 'Chinese (Simplified) - US Keyboard'
      MaxLength = 19
      TabOrder = 2
      Text = '                   '
    end
    object btnOK: TBitBtn
      Left = 678
      Top = 19
      Width = 75
      Height = 22
      Caption = #26597#35810
      TabOrder = 3
      OnClick = btnOKClick
    end
    object btnExport: TBitBtn
      Left = 760
      Top = 19
      Width = 75
      Height = 22
      Caption = #23548#20986'Excel'
      TabOrder = 4
      Visible = False
    end
    object btnPrint: TBitBtn
      Left = 840
      Top = 19
      Width = 75
      Height = 22
      Caption = #25171#21360
      TabOrder = 5
      OnClick = btnPrintClick
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 50
    Width = 938
    Height = 423
    Align = alClient
    TabOrder = 1
    object tvAccount: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = srcCardSum
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          Column = tvAccountRealMoney
        end>
      DataController.Summary.SummaryGroups = <
        item
          Links = <
            item
              Column = tvAccountAccountNo
            end>
          SummaryItems = <
            item
              Kind = skSum
              Position = spFooter
              Column = tvAccountRealMoney
            end>
        end>
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.GroupFooters = gfVisibleWhenExpanded
      object tvAccountAccountNo: TcxGridDBColumn
        Caption = #36134#25143
        DataBinding.FieldName = 'Accountno'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'AccountNo'
        Properties.ListColumns = <
          item
            FieldName = 'AccountName'
          end>
        Properties.ListSource = srcAccount
        GroupIndex = 0
        Width = 144
      end
      object tvAccountPayCardNo: TcxGridDBColumn
        Caption = #21345#21495
        DataBinding.FieldName = 'PayCardNo'
        Options.Editing = False
        Options.Filtering = False
      end
      object tvAccountFYear: TcxGridDBColumn
        Caption = #24180
        DataBinding.FieldName = 'FYear'
        Options.Editing = False
        Options.Filtering = False
      end
      object tvAccountFMonth: TcxGridDBColumn
        Caption = #26376
        DataBinding.FieldName = 'FMonth'
        Options.Editing = False
        Options.Filtering = False
      end
      object tvAccountRealMoney: TcxGridDBColumn
        Caption = #23454#25910
        DataBinding.FieldName = 'RealMoney'
        Options.Editing = False
        Options.Filtering = False
        Width = 115
      end
    end
    object glAccount: TcxGridLevel
      GridView = tvAccount
    end
  end
  object dxComponentPrinter: TdxComponentPrinter
    CurrentLink = dxComponentPrinterLink1
    DateFormat = 1
    Version = 0
    Left = 432
    Top = 136
    object dxComponentPrinterLink1: TdxGridReportLink
      Active = True
      Component = cxGrid1
      PrinterPage.DMPaper = 9
      PrinterPage.Footer = 6350
      PrinterPage.Header = 6350
      PrinterPage.Margins.Bottom = 12700
      PrinterPage.Margins.Left = 12700
      PrinterPage.Margins.Right = 12700
      PrinterPage.Margins.Top = 12700
      PrinterPage.Orientation = poLandscape
      PrinterPage.PageSize.X = 210000
      PrinterPage.PageSize.Y = 297000
      PrinterPage._dxMeasurementUnits_ = 0
      PrinterPage._dxLastMU_ = 2
      ReportDocument.CreationDate = 40548.435847500000000000
      ReportTitle.Font.Charset = ANSI_CHARSET
      ReportTitle.Font.Color = clBlack
      ReportTitle.Font.Height = -56
      ReportTitle.Font.Name = #23435#20307
      ReportTitle.Font.Style = []
      ReportTitle.Text = #39044#20184#21345#36134#25143#28040#36153#32479#35745
      BuiltInReportLink = True
    end
  end
  object msspCardSum: TMSStoredProc
    StoredProcName = 'usp_GetCardSumByMon'
    Connection = MainForm.connSQL
    SQL.Strings = (
      
        '{:RETURN_VALUE = CALL usp_GetCardSumByMon (:begindate, :enddate,' +
        ' :AccountNo)}')
    Left = 280
    Top = 168
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftDateTime
        Name = 'begindate'
        ParamType = ptInput
        Value = 40513d
      end
      item
        DataType = ftDateTime
        Name = 'enddate'
        ParamType = ptInput
        Value = 40543d
      end
      item
        DataType = ftInteger
        Name = 'AccountNo'
        ParamType = ptInput
        Value = 0
      end>
    CommandStoredProcName = 'usp_GetCardSumByMon'
  end
  object srcAccount: TDataSource
    DataSet = tblAccount
    Left = 336
    Top = 320
  end
  object tblAccount: TMSTable
    TableName = 'TS_Account'
    Connection = MainForm.connSQL
    Left = 432
    Top = 296
  end
  object srcCardSum: TDataSource
    DataSet = msspCardSum
    Left = 208
    Top = 160
  end
end
